home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
DIRED-LI.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
2KB
|
27 lines
;;; compiled by jwz@thalidomide on Thu Jul 2 14:40:34 1992
;;; from file /u/jwz/emacs19/lisp/dired/dired-link.el
;;; emacs version 19.2.1 Lucid.
;;; bytecomp version 2.07; 17-jun-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(require 'dired)
(fset 'dired-link-noselect-classic #[(dirname) "¼é ┬├!!ë─Ü?¡¼┼H╞U½ä╟!╚!½ä╔!╩!ëqê╠\"ê═ ê╬!ê)ç" [dirname default-directory dired-link-referent directory-file-name "" 0 126 expand-file-name file-directory-p file-name-as-directory dired-find-buffer buffer dired-readin dired-move-to-filename dired-mode] 4 "\
Like M-x dired but returns the dired buffer as value, does not select it."])
(fset 'dired-link-noselect-tree #[(dirname &optional switches) "¼é ┬├─!!!┼!½ä╞!╟\"ç" [dirname default-directory expand-file-name dired-link-referent directory-file-name file-directory-p file-name-as-directory dired-internal-noselect switches] 4 "\
Like `dired' but returns the dired buffer as value, does not select it."])
(byte-code "└┴┬!½â├¬ü─Mç" [dired-noselect fboundp dired-internal-noselect dired-link-noselect-tree dired-link-noselect-classic] 3)
(fset 'dired-link-referent #[(linkname) ";??¡Ö┴├!ë½ë─\n┼!\"¬p)─┼!\"ç" [linkname nil referent file-symlink-p dired-link-expand file-name-directory] 4 "\
Returns expanded file or directory referent of LINKNAME.
LINKNAME should not end with a directory delimiter.
If LINKNAME is not a string, returns nil.
If LINKNAME is not a link, it is simply expanded and returned."])
(fset 'dired-link-expand #[(referent dirname) "└ ─┼\"½£╟╚ö╚òO!╔ëöO╔ò└OQ¬]─╩\"ë½Ü╔U½ö─╠ \"¡à ╔ëòO═╚└OQ)─╬\"½┬─╧\"½è╚ò└O¬o─╨\"½Æ╤╥\n!!ë╔ò└OP¬g─╙\"½H╔ëöO╔ò└OP¬h╔H╘U¼Ä╔H╒U¼å P*ç" [nil dirname dir var-link string-match "\\$(\\([^)]*\\))" referent getenv 1 0 "`node_data" nd-abbrev "^//[^/]+" "/sys/" "\\.\\." "^\\(//\\.\\.\\|/\\.\\.\\)\\(/\\|$\\)" "^\\.\\.\\(/\\|$\\)" file-name-directory directory-file-name "[^/]+/\\.\\./" 126 47] 6 "\
Expands REFERENT relative to DIRNAME and returns."])
(byte-code "└┴!ê└┬!ç" [provide dir-links dired-link] 2)